home *** CD-ROM | disk | FTP | other *** search
/ Flybox Trout (Edition 1) / Flybox Trout (Edition 1).iso / Setup / Support / FlyBox.exe / FlyBox.dxr / 00010_FlyDetail.ls < prev    next >
Encoding:
Text File  |  2002-04-15  |  2.1 KB  |  47 lines
  1. global DBPath
  2.  
  3. on exitFrame me
  4.   db = DGOpenDatabase(DBPath & "FlyBox.mdb", 0, 0, ";PWD=StopLooking")
  5.   FlyID = getVariable(sprite(1), "FlyID")
  6.   qd = DGQDOpen("GetFly", db)
  7.   DGQDSetParameterValue("FlyID", FlyID, qd)
  8.   rs = DGQDCreateRS(qd)
  9.   setVariable(sprite(1), "FlyDetails:CountryOfOrigin", DGRSGetFieldValue("CountryOfOrigin", rs))
  10.   setVariable(sprite(1), "FlyDetails:FlyType", DGRSGetFieldValue("FlyType", rs))
  11.   setVariable(sprite(1), "FlyDetails:NameOfTier", DGRSGetFieldValue("NameOfTier", rs))
  12.   setVariable(sprite(1), "FlyDetails:NameOfCreator", DGRSGetFieldValue("NameOfCreator", rs))
  13.   setVariable(sprite(1), "FlyDetails:FlyID", FlyID)
  14.   setVariable(sprite(1), "FlyDetails:FlyName", DGRSGetFieldValue("FlyName", rs))
  15.   setVariable(sprite(1), "FlyDetails:Comments", DGRSGetFieldValue("Comments", rs))
  16.   setVariable(sprite(1), "FlyDetails:Picture", DGRSGetFieldValue("Picture", rs))
  17.   setVariable(sprite(1), "FlyDetails:Dressing", DGRSGetFieldValue("Dressing", rs))
  18.   setVariable(sprite(1), "FlyDetails:DressingTechniques", DGRSGetFieldValue("DressingTechniques", rs))
  19.   DGRSClose(rs)
  20.   rs = DGCreateRecordset("SELECT Anecdote.* FROM Anecdote WHERE FlyID = " & FlyID, db)
  21.   Anecdotes = EMPTY
  22.   repeat while not DGRSisEOF(rs)
  23.     Anecdotes = Anecdotes & "<font size='16'>" & DGRSGetFieldValue("Anecdote", rs) & "</font>"
  24.     if DGRSGetFieldValue("Author", rs) <> EMPTY then
  25.       Anecdotes = Anecdotes & RETURN & "<font size='12'>Author: " & DGRSGetFieldValue("Author", rs)
  26.       if DGRSGetFieldValue("EMail", rs) <> EMPTY then
  27.         Anecdotes = Anecdotes & " (" & DGRSGetFieldValue("EMail", rs) & ")"
  28.       end if
  29.       Anecdotes = Anecdotes & "</font>"
  30.     else
  31.       if DGRSGetFieldValue("EMail", rs) <> EMPTY then
  32.         Anecdotes = Anecdotes & RETURN & "<font size='12'>Author: " & DGRSGetFieldValue("EMail", rs) & "</font>"
  33.       end if
  34.     end if
  35.     Anecdotes = Anecdotes & RETURN & RETURN
  36.     DGRSmoveNext(rs)
  37.   end repeat
  38.   setVariable(sprite(1), "FlyDetails:Anecdotes", Anecdotes)
  39.   if DGQDIsOpen(qd) then
  40.     DGQDClose(qd)
  41.   end if
  42.   DGRSClose(rs)
  43.   DGClose(db)
  44.   sprite(1).goToFrame(87)
  45.   go("Finished")
  46. end
  47.